3 REM  MURDER AT MYSTERY MANOR
9 POKE53280,1:POKE53281,0:S=54272:FORJ=0TO24:POKES+J,0:NEXT:POKES+24,15
12 PRINT"[147]"TAB(7)"[155][223][169]"
13 PRINTTAB(7)" [223][169] ":PRINTTAB(7)"  [223][169]  [146] YSTERY"
15 PRINTTAB(7)" [194]  [194] ":PRINTTAB(7)" [194]  [194] ":PRINT"[145][145][145]"TAB(21)CHR$(142);
24 GOSUB1713:PRINT"AT"
27 PRINT""TAB(12)"[152][223][169]":PRINTTAB(12)" [223][169] "
28 PRINTTAB(12)"  [223][169]  [146] ARPLE"
30 PRINTTAB(12)" [194]  [194] ":PRINTTAB(12)" [194]  [194] "
33 PRINT"[145]"TAB(17)"[151][223][169]":PRINTTAB(17)" [223][169] ":PRINTTAB(17)"  [223][169]  [146] ANOR"
36 PRINTTAB(17)" [194]  [194] ":PRINTTAB(17)" [194]  [194] "
39 GOSUB1713
42 FORJ=1TO1000:NEXT
45 POKES+5,15:POKES+6,0:POKES+4,129
50 J=1:FORI=1TO15:POKE53281,J:POKE53280,1-J
51 POKES+1,INT(RND(1)*60)+5
53 J=1-J:FORP=1TO30:NEXT:NEXT
56 POKES+4,0
100 DEFFNR(X)=INT(RND(1)*X)+1:J=RND(-TI)
103 DIMP%(50),S$(22),R$(14),C$(6),V$(3),V(3),D%(10,2)
112 FORJ=1TO10:P%(J)=FNR(11)+3:NEXT
115 FORJ=11TO22:P%(J)=FNR(13)+1:NEXT
118 FORJ=24TO31:P%(J)=4:NEXT
121 P%(23)=FNR(8)+6
124 J=FNR(10):P%(35)=J:P%(34)=P%(J):P%(J)=0
127 J=FNR(10):IFP%(J)=0THEN127
130 P%(32)=J:P%(J)=0:J=FNR(12):P%(33)=J:P%(J+10)=0
133 FORJ=1TO22:IFRND(1)<=.75THENP%(J)=-P%(J)
136 READS$(J):NEXT
139 FORJ=1TO14:READR$(J):NEXT
142 FORJ=0TO10:READD%(J,1),D%(J,2):IFRND(1)<.9THEND%(J,0)=-1
143 NEXT
145 FORJ=0TO3:READV$(J):NEXT
148 P=2049:I=0:FORJ=4000TO7000STEP1000
151 IFJ=PEEK(P+2)+PEEK(P+3)*256THENDA(I)=P:I=I+1:GOTO157
154 P=PEEK(P)+PEEK(P+1)*256:GOTO151
157 NEXT
172 PRINT"[144]      HOW MANY PLAYERS (1-6) ?"
175 GETA$:IFA$<"1"ORA$>"6"THEN175
178 I=VAL(A$):P%(49)=I
181 FORJ=1TOI:P%(35+J)=1:NEXT
190 PRINT"[147][151][193]LL PLAYERS EXCEPT [208]LAYER #1 MUST LEAVE"CHR$(14)
192 PRINT"THE ROOM AT THIS POINT.":PRINT"   [208]LAYER # 1: [208]RESS  [210][197][212][213][210][206] [146]"
193 PRINT"       TO BEGIN THE GAME!"
194 GETA$:IFA$<>CHR$(13)THEN194
196 POKE53280,12:POKE53281,15:Q=1
200 PRINT"[147][144][208][204][193][217][197][210] #"Q"---------------[151]"
203 IFC$(Q)<>""THEN212
206 PRINT"[208]RESS ANY TWO KEYS TO ESTABLISH YOUR"
207 PRINT"[211]ECRET [195]ODE. [215]ITH THIS CODE, NO OTHER"
209 PRINT"PLAYER CAN STEAL YOUR TURN!":PRINT"[197]NTER YOUR CODE NOW!"
210 GOSUB1700:C$(Q)=A$:GOTO218
212 PRINT"[197]NTER YOUR [211]ECRET [195]ODE!":GOSUB1700
215 IFC$(Q)<>A$THENI=0:GOSUB1710:GOTO200
218 PRINT"[147][144][208][204][193][217][197][210] #"Q"---------------[151]"
221 R=P%(35+Q):PRINT"[217]OU ARE IN THE "R$(R)"."
224 PRINT"[196]O YOU WISH TO LEAVE THIS ROOM [[217]/[206]] ?"
227 GETA$:IFA$="N"THENPRINT"[206]O":GOTO330
230 IFA$<>"Y"THEN227
233 I=1:J=R:GOSUB1730:FORJ=0TO3:READV(J):NEXT
236 PRINT"[217]ES":PRINT"[196]OORS FROM THIS ROOM ARE FOUND TO THE:"
239 FORJ=0TO3:IFV(J)<>0THENPRINTTAB(4);V$(J)
242 NEXT:PRINT"[212]YPE [144] [206] [146] ,  [211] [146] ,  [197] [146] ,[151]OR [144] [215] [146][151] TO MOVE!":I=3
245 GETA$:IFA$=""THEN245
248 A=ASC(A$)OR128:I=0:IFA<197ORA>215THEN245
251 IFA=ASC(V$(I))THEN260
254 I=I+1:IFI<4THEN251
257 GOTO245
260 PRINT"[199]O "V$(I)
261 IF V(I)<1THENPRINT"[206]O DOOR THIS WAY. [217]OU CAN'T MOVE.":GOTO1910
263 IFV(I)<100THENR=V(I):PRINT"[205]OVING TO NEW ROOM.":FORI=1TO1000:NEXT:GOTO330
266 Z=V(I)-100:IFD%(Z,0)=0THEN300
269 PRINT"[212]HAT DOOR IS LOCKED":GOSUB1760
270 IFA=0THENPRINT"[217]OU DON'T HAVE A MATCHING KEY.":PRINT"[206]O MOVE.":GOTO1910
272 PRINT"[217]OUR KEY OPENS THE DOOR.":GOSUB1770:PRINT"[205]OVING TO NEW ROOM."
300 I=D%(Z,1):IFI=RTHENI=D%(Z,2)
303 R=I:GOSUB1760:IFA<>1THEN330
306 PRINT"[196]O YOU WANT TO LOCK THIS DOOR BEHIND    YOU  [[217] / [206]] ?"
309 GETA$:IFA$="N"THENPRINT"[206]O":GOTO330
312 IFA$<>"Y"THEN309
315 PRINT"[217]ES":GOSUB1770:PRINT"[196]OOR LOCKED."
330 P%(Q+35)=R:PRINT"[147][217]OU ARE IN THE "R$(R)"."
333 PRINT"[217]OU CARRY ";:I=P%(Q+41):GOSUB1780:PRINT"."
336 J=0:PRINT"[217]OU SEE THE FOLLOWING HERE:"
339 FORI=1TO31:IFP%(I)=RTHENJ=J+1:PRINT"   ";:GOSUB1780:PRINT"."
342 NEXT:FORI=1TO6:IFI<>QANDP%(35+I)=RTHENPRINT"   [208]LAYER #"I".":J=J+1
345 NEXT:IFP%(34)=RTHENPRINT"   THE BODY OF THE "S$(P%(35))".":J=J+1
348 IFJ=0THENPRINT"[206]OTHING OF INTEREST."
351 PRINT"[208]RESS [144] [210][197][212][213][210][206][160][146][151] FOR OPTIONS...."
354 GETA$:IFA$<>CHR$(13)THEN354
375 PRINT"[147]"
376 PRINT"[144]   >>>>> [212][213][210][206][160][207][208][212][201][207][206][211] <<<<<":PRINT" [151][193][146] [193]CCUSE THE [205]URDERER!"
377 PRINT"[160][196][146] [196]ROP AN ITEM.":PRINT" [200][146] [200]IDE AN ITEM OR SUSPECT."
379 PRINT" [206][146] [206]O ACTION.":PRINT" [208][146] [208]ILFER FROM ANOTHER PLAYER."
381 PRINT" [211][146] [211]EARCH THE ROOM FOR HIDDEN ITEMS.":PRINT" [212][146] [212]AKE AN ITEM."
384 PRINT"[197]NTER LETTER FOR ACTION DESIRED!"
387 GETA$:IFA$<"A"ORA$>"T"THEN387
390 PRINT"[147]":A=ASC(A$):ONA-64GOTO700,387,387,800
393 IFA$="H"THEN970
396 IFA$<"N"THEN387
400 ONA-77GOTO450,387,880,398,387,930,820
450 PRINT"[208]RESS [144] [210][197][212][213][210][206] [146][151] TO END YOUR TURN!"
453 GETA$:IFA$<>CHR$(13)THEN453
456 I=0:PRINT"[144][147][208][204][193][217][197][210] #"Q"=========== [197]ND [212]URN":GOSUB1710
459 Q=Q+1:IFQ>P%(49)THENQ=1
462 IFP%(Q+35)=0THEN459
465 GOTO200
700 PRINT"[147][144]   ***** [205][193][203][197] [193][206] [193][195][195][213][211][193][212][201][207][206] *****[151]":I=1
703 FORJ=1TO10:PRINTJ"[157]:"TAB(5)"[212]HE ";S$(J)".":NEXT
706 PRINT"[197]NTER NUMBER OF [205]URDER [214]ICTIM ";:INPUTJ
709 IFJ<>P%(35)THENI=0
712 GOSUB1900
715 FORJ=1TO10:PRINTJ"[157]:"TAB(5)"[212]HE ";S$(J)".":NEXT
718 PRINT"[197]NTER NUMBER OF [205]URDERER ";:INPUTJ
721 IFJ<>P%(32)THENI=0
724 GOSUB1900
727 FORJ=1TO12:PRINTJ"[157]:"TAB(5)"[212]HE "S$(J+10)".":NEXT
730 PRINT"[197]NTER NUMBER OF [205]URDER [215]EAPON ";:INPUTJ
733 IFJ<>P%(33)THENI=0
736 GOSUB1900
739 FORJ=1TO14:PRINTJ"[157]:"TAB(5)"[212]HE "R$(J)".":NEXT
742 PRINT"[197]NTER NUMBER OF [205]URDER [210]OOM ";:INPUTJ
745 IFJ<>ABS(P%(34))THENI=0
746 PRINT"[147][211]UMMONING THE [208]OLICE TO MAKE AN":PRINT"ARREST......"
748 POKES+14,5:POKES+18,16:POKES+3,1:POKES+24,143:POKES+6,240:POKES+4,65:A=5389
751 FORJ=1TO200:R=A+PEEK(S+27)*3.5:POKES,RAND255:POKES+1,INT(R/256):NEXT
754 FORJ=0TO24:POKES+J,0:NEXT:POKES+24,15
757 FORJ=1TO2500:NEXT
760 IFI=0THEN772
763 I=3:PRINT"[217]OUR SOLUTION IS CORRECT!":GOSUB1710
769 PRINT"[208]LAYER #"Q"HAS CRACKED THE CASE!":GOTO787
772 I=2:PRINT"[206]O!...[212]HAT WAS A FALSE ARREST!":GOSUB1710
775 GOSUB1800:P%(35+Q)=0:P%(50)=P%(50)+1:PRINT"[217]OU'RE OUT OF THE GAME!"
778 IFP%(50)<P%(49)THEN450
781 RESTORE:GOSUB1713:FORJ=1TO500:NEXT:GOSUB1713
784 PRINT"[193]LL PLAYERS HAVE GIVEN INCORRECT":PRINT"SOLUTIONS TO THE CRIME!!"
785 PRINT"[206]OBODY WINS !"
787 PRINT"[200]ERE IS THE CORRECT SOLUTION:":PRINT"[212]HE "S$(P%(32))
789 PRINT"KILLED THE "S$(P%(35)):PRINT"IN THE "R$(ABS(P%(34)))","
791 PRINT"USING THE "S$(P%(33)+10)".":END
800 PRINT"[144]   *** [196][210][207][208] [193][206] [201][212][197][205] ***[151]":GOSUB1800
803 IFI=0THENPRINT"[217]OU WEREN'T CARRYING ANYTHING !":GOTO450
806 PRINT"[217]OU DROP ";:GOSUB1780:PRINT".":GOTO450
820 PRINT"[144]   *** [212][193][203][197] [193][206] [201][212][197][205] ***[151]":J=1:PRINT"[212]HESE ITEMS ARE AVAILABLE:"
823 FORI=11TO31:IFP%(I)<>RTHEN829
826 PRINTJ": ";:GOSUB1780:PRINT".":POKE900+J,I:J=J+1
829 NEXT:IFJ=1THENPRINT"[206]O ITEMS.":GOTO450
832 PRINT"[197]NTER NUMBER TO TAKE AN ITEM, OR":PRINT"ENTER ZERO TO TAKE NOTHING."
835 INPUT"[215]HAT ITEM DO YOU WANT";A:IFA<0ORA>=JTHEN835
838 IFA=0THENPRINT"[206]O ITEM TAKEN.":GOTO450
841 GOSUB1800:IFI<>0THENPRINT"[217]OU DROP ";:GOSUB1780:PRINT"."
844 I=PEEK(900+A):P%(I)=100+Q:P%(Q+41)=I
845 PRINT"[217]OU TAKE ";:GOSUB1780:PRINT".":GOTO450
880 PRINT"[144]   *** [208][201][204][198][197][210] [198][210][207][205] [193][206][207][212][200][197][210] ***[151]":J=0
881 PRINT"[212]HESE PLAYERS ARE ALSO IN THE ROOM..."
883 FORI=1TO6:IFP%(35+I)=RANDI<>QTHENPRINT"   [208]LAYER #"I".":J=J+1
886 NEXT:IFJ=0THENPRINT"[206]O OTHER PLAYERS ARE IN THE ROOM!":GOTO450
889 PRINT"[215]HICH PLAYER WILL YOU STEAL FROM ?"
890 PRINT"[197]NTER NUMBER, OR PRESS ZERO."
892 INPUT"[208]ILFER FROM PLAYER #";A:IFA<0ORA>P%(49)THEN889
893 IFA=0THENPRINT"[206]O THEFT.":GOTO450
895 IFA=QTHENPRINT"[217]OU CAN'T STEAL FROM YOURSELF!":GOTO892
898 IFP%(35+A)<>RTHENPRINT"[208]LAYER #"A"IS NOT HERE !":GOTO889
901 GOSUB1800:IFI<>0THENPRINT"[217]OU DROP ";:GOSUB1780:PRINT"."
904 I=P%(A+41):IFI=0THENPRINT"[208]LAYER #"A"CARRIED NO ITEM!":GOTO450
907 P%(Q+41)=I:P%(A+41)=0:P%(I)=100+Q
908 PRINT"[217]OU TAKE ";:GOSUB1780:PRINT".":GOTO450
930 PRINT"[144]   *** [211][197][193][210][195][200] [212][200][197] [210][207][207][205] ***[151]":J=0:PRINT"[217]OU FIND THE FOLLOWING:"
933 FORI=1TO31:IFP%(I)<>-RTHEN942
936 IFRND(1)>.5THEN942
939 J=J+1:PRINTTAB(4);:GOSUB1780:PRINT".":P%(I)=R
942 NEXT:IFP%(34)<>-RORRND(1)>.5THEN948
945 J=1:PRINT"    [212]HE BODY OF THE "S$(P%(35))".":P%(34)=R
948 IFJ=0THENPRINT"  ------[206]OTHING !"
951 GOTO450
970 PRINT"[144]   *** [200][201][196][197] [201][212][197][205] [207][210] [211][213][211][208][197][195][212] ***[151]":J=1
971 PRINT"[212]HESE CAN BE HIDDEN:"
973 FORI=1TO31:IFP%(I)<>RTHEN979
976 PRINTJ": ";:GOSUB1780:PRINT".":POKE900+J,I:J=J+1
979 NEXT:I=P%(Q+41):IFI=0THEN985
982 PRINTJ": ";:GOSUB1780:PRINT" (YOU CARRY IT).":POKE900+J,Q+41:J=J+1
985 IFP%(34)=RTHENPRINTJ": THE BODY OF THE "S$(P%(35))".":POKE900+J,34:J=J+1
988 IFJ=1THENPRINT"[206]OTHING HERE CAN BE HIDDEN!":GOTO450
991 PRINT"[197]NTER NUMBER OF ITEM TO HIDE, OR":PRINT"ENTER ZERO TO HIDE NOTHING."
994 INPUT"[215]HAT WILL YOU HIDE";A:IFA<0ORA>=JTHEN994
997 IFA=0THENPRINT"[206]OTHING HIDDEN.":GOTO450
1000 I=PEEK(900+A):IFI>34THEN1009
1003 P%(I)=-R:IFI=34THENPRINT"[217]OU HIDE THE BODY.":GOTO450
1006 PRINT"[217]OU HIDE ";:GOSUB1780:PRINT".":GOTO450
1009 I=P%(Q+41):PRINT"[217]OU HIDE THE OBJECT YOU CARRY....":GOSUB1780:PRINT"."
1012 P%(Q+41)=0:P%(I)=-R:GOTO450
1700 GETA$:IFA$=""THEN1700
1703 GETB$:IFB$=""THEN1703
1706 A$=A$+B$:RETURN
1710 J=1:GOSUB1730
1713 READW,I,J:POKES+2,I:POKES+3,J:READI,J:POKES+5,I:POKES+6,J
1716 READZ:IFZ<0THENRETURN
1719 POKES+1,INT(Z/256):POKES,ZAND255:READZ:POKES+4,W
1722 FORJ=1TOZ*100:NEXT:POKES+4,0:GOTO1716
1730 P=DA(I):IFJ=1THEN1736
1733 FORI=1TOJ-1:P=PEEK(P)+PEEK(P+1)*256:NEXT
1736 P=P-1:POKE66,INT(P/256):POKE65,PAND255:RETURN
1760 A=0:I=P%(41+Q):IFI<23ORI>31THENRETURN
1763 IFI=23THENA=-1:RETURN
1766 I=I-17:IFI=D%(Z,1)ORI=D%(Z,2)THENA=1
1769 RETURN
1770 IFD%(Z,0)=0THEND%(Z,0)=-1:RETURN
1773 D%(Z,0)=0:RETURN
1780 IFI=0THENPRINT"NO ITEM";:RETURN
1783 IFI<23THENPRINT"THE "S$(I);:RETURN
1786 IFI=23THENPRINT"THE [211]KELETON [203]EY";:RETURN
1789 PRINT"THE "R$(I-17)" [203]EY";:RETURN
1800 I=P%(Q+41):IFI=0THENRETURN
1803 R=P%(Q+35):P%(I)=R:P%(Q+41)=0:RETURN
1900 PRINT"[147][144]   ***** [205][193][203][197] [193][206] [193][195][195][213][211][193][212][201][207][206] *****[151]":RETURN
1910 FORI=1TO2200:NEXT:GOTO330
2000 DATA17,0,0,0,240,14435,1,12860,1,14435,7,0,4
2005 DATA12860,1,11457,1,10814,1,9634,1,9094,6,9634,8,0,8,-1
2020 DATA17,0,0,0,240,7217,1,6430,1,7217,8,0,7
2025 DATA5407,6,5728,6,4547,6,4817,24,-1
3000 DATA"[195]OOK","[194]UTLER","[199]ARDENER","[195]HAUFFER","[196]UKE","[196]UCHESS","[206]ANNY"
3005 DATA"[207]PERA [211]TAR","[193]MBASSADOR","[208]RIME [205]INISTER","[195]ARVING [203]NIFE","[210]OPE"
3010 DATA"[194]OX OF [215]EED [203]ILLER","[193]NTIQUE [205]ACE","[196]UELLING [208]ISTOL","[198]ENCING [198]OIL"
3015 DATA"[201]CE [208]ICK","[208]LASTIC [194]AG","[195]HAIN [211]AW","[200]EDGE [212]RIMMERS","[208]OLO [205]ALLET"
3020 DATA"[199]ARDEN [211]PADE","[197]NTRY [198]OYER","[195]ORRIDOR","[200]ALL","[208]ANTRY","[196]INING [210]OOM"
3025 DATA"[203]ITCHEN","[211]TUDY","[194]EDROOM","[194]ATHROOM","[195]LOSET","[199]REENHOUSE","[199]ARDEN"
3030 DATA"[208]OOL","[199]ARAGE",2,13,2,14,3,7,3,8,3,11,7,9,8,9,8,10,11,12,12,13,13,14
3035 DATA"[206]ORTH","[197]AST","[211]OUTH","[215]EST"
4000 DATA33,0,0,88,89,1804,6,2025,3,2145,6,2703,3
4005 DATA2408,1,2551,1,2408,1,2551,1,2408,1,2551,1,2408,1,2551,1,2703,8,-1
5000 DATA5,3,0,2
5005 DATA4,1,101,100
5010 DATA104,103,102,1
5015 DATA0,6,2,0
5020 DATA6,0,1,0
5025 DATA0,0,5,4
5030 DATA102,105,0,0
5035 DATA0,107,106,103
5040 DATA106,0,0,105
5045 DATA0,0,0,107
5050 DATA0,0,104,108
5055 DATA0,108,109,0
5060 DATA109,100,0,110
5065 DATA101,110,0,0
6000 DATA65,255,0,9,0,1804,6,1804,4.4,1804,1.5,1804,6,2145,4.5,2025,1.5
6005 DATA2025,4.5,1804,1.5,1804,4.5,1804,1.5,1804,12,-1
7000 DATA33,0,0,88,89,2408,4,3215,12,3608,1.33,2408,1.33,3608,1.33
7005 DATA4050,4,4050,4,4050,4,4050,1.33,4291,1.33,3215,1.33
7010 DATA4050,6,3608,2,3215,8,-1